Sub Command1_Click ()
    Hide
End Sub

Sub SourceFlds_DblClick ()
    displayFlds.AddItem sourceFlds.text
End Sub

Sub DisplayFlds_dblclick ()
    displayFlds.RemoveItem displayFlds.ListIndex
End Sub

Sub Command2_Click ()
    Do While sourceFlds.Listcount
        sourceFlds.RemoveItem 0
    Loop
    Do While displayFlds.Listcount
        displayFlds.RemoveItem 0
    Loop
    Hide
    
End Sub